home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / basecast.cst / 00081_Script_interface profiler parent < prev    next >
Text File  |  1997-07-24  |  2KB  |  46 lines
  1. property membsToPrint
  2.  
  3. on new me
  4.   set intfcProfile = [:]
  5.   return me
  6. end
  7.  
  8. on derive me -- derives members to print from PM profile interface state and stores in 'the membsToPrint of me'
  9.   set membsToPrint = [:]
  10.   repeat with theSpriteNum = 1 to 48
  11.     set theMemberType = the type of the member of sprite theSpriteNum
  12.     
  13.     if theMemberType <> #empty then
  14.       set theMembName = the name of the member of sprite theSpriteNum
  15.       set theMemb = the member of sprite theSpriteNum
  16.     end if
  17.     
  18.     case the type of the member of sprite theSpriteNum of
  19.         
  20.       #bitmap:        
  21.         case true of
  22.           (theMembName contains "as"): 
  23.             setaprop membsToPrint, theMembName, theMemb        
  24.           (theMembName contains "bs"): -- alert "'bs' bitmap"
  25.             setaprop membsToPrint, theMembName, theMemb
  26.           (theMembName contains "cs"): -- alert "'cs' bitmap"
  27.             setaprop membsToPrint, theMembName, theMemb
  28.         end case
  29.         
  30.       #richtext, #field:
  31.         case true of
  32.           (theMembName contains "issue"):
  33.             setaprop membsToPrint, theMembName, theMemb
  34.           (theMembName contains "txt_"), (theMembName contains "tra_"): 
  35.             setaprop membsToPrint, theMembName, theMemb            
  36.           (theMembName contains "sub_"): 
  37.             setaprop membsToPrint, theMembName, theMemb            
  38.           (windowPresent("textpop.dir")): 
  39.             setaprop membsToPrint, theMembName, theMemb
  40.             
  41.         end case
  42.         
  43.     end case
  44.   end repeat
  45.   return me
  46. end